home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / regagnt / 1-6.frm (.txt) next >
Visual Basic Form  |  1996-01-01  |  6KB  |  186 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "How-To 1.6"
  4.    ClientHeight    =   2730
  5.    ClientLeft      =   1365
  6.    ClientTop       =   1650
  7.    ClientWidth     =   5115
  8.    Height          =   3135
  9.    Icon            =   "1-6.frx":0000
  10.    Left            =   1305
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2730
  13.    ScaleWidth      =   5115
  14.    Top             =   1305
  15.    Width           =   5235
  16.    Begin VB.CommandButton cmdAction 
  17.       Caption         =   "Delete Key Value"
  18.       Height          =   345
  19.       Index           =   4
  20.       Left            =   2130
  21.       TabIndex        =   11
  22.       Top             =   2220
  23.       Width           =   1755
  24.    End
  25.    Begin VB.CommandButton cmdAction 
  26.       Caption         =   "Exit"
  27.       Height          =   1125
  28.       Index           =   5
  29.       Left            =   3990
  30.       TabIndex        =   10
  31.       Top             =   1440
  32.       Width           =   885
  33.    End
  34.    Begin VB.CommandButton cmdAction 
  35.       Caption         =   "Get Key Value"
  36.       Height          =   345
  37.       Index           =   2
  38.       Left            =   2130
  39.       TabIndex        =   9
  40.       Top             =   1440
  41.       Width           =   1755
  42.    End
  43.    Begin VB.CommandButton cmdAction 
  44.       Caption         =   "Set Key Value"
  45.       Height          =   345
  46.       Index           =   3
  47.       Left            =   2130
  48.       TabIndex        =   8
  49.       Top             =   1830
  50.       Width           =   1755
  51.    End
  52.    Begin VB.TextBox txtValue 
  53.       Height          =   285
  54.       Left            =   1950
  55.       TabIndex        =   6
  56.       Top             =   1020
  57.       Width           =   2895
  58.    End
  59.    Begin VB.CommandButton cmdAction 
  60.       Caption         =   "Delete Registry Key"
  61.       Height          =   345
  62.       Index           =   1
  63.       Left            =   240
  64.       TabIndex        =   5
  65.       Top             =   1830
  66.       Width           =   1755
  67.    End
  68.    Begin VB.CommandButton cmdAction 
  69.       Caption         =   "Create Registry Key"
  70.       Height          =   345
  71.       Index           =   0
  72.       Left            =   240
  73.       TabIndex        =   4
  74.       Top             =   1440
  75.       Width           =   1755
  76.    End
  77.    Begin VB.TextBox txtSubKey 
  78.       Height          =   285
  79.       Left            =   1950
  80.       TabIndex        =   1
  81.       Text            =   "Authors"
  82.       Top             =   630
  83.       Width           =   2895
  84.    End
  85.    Begin VB.TextBox txtRegistryKey 
  86.       Height          =   285
  87.       Left            =   1950
  88.       TabIndex        =   0
  89.       Text            =   "\Software\WaiteGroupPress\VB-API-HowTo"
  90.       Top             =   240
  91.       Width           =   2895
  92.    End
  93.    Begin VB.Label lblCaption 
  94.       Caption         =   "Value contents"
  95.       Height          =   195
  96.       Index           =   2
  97.       Left            =   240
  98.       TabIndex        =   7
  99.       Top             =   1080
  100.       Width           =   1515
  101.    End
  102.    Begin VB.Label lblCaption 
  103.       Caption         =   "Value name"
  104.       Height          =   195
  105.       Index           =   1
  106.       Left            =   240
  107.       TabIndex        =   3
  108.       Top             =   690
  109.       Width           =   1515
  110.    End
  111.    Begin VB.Label lblCaption 
  112.       Caption         =   "Registry key"
  113.       Height          =   195
  114.       Index           =   0
  115.       Left            =   240
  116.       TabIndex        =   2
  117.       Top             =   300
  118.       Width           =   1515
  119.    End
  120. Attribute VB_Name = "frmMain"
  121. Attribute VB_Creatable = False
  122. Attribute VB_Exposed = False
  123. Option Explicit
  124. Dim RegistryAgent           As clsRegistryAgent
  125. Private Sub cmdAction_Click(Index As Integer)
  126. ' Set the class properties using the contents
  127. ' of the text boxes.
  128. RegistryAgent.RegistryKey = txtRegistryKey.TEXT
  129. RegistryAgent.SubKey = txtSubKey.TEXT
  130. ' Set additional properties, and then invoke the
  131. ' required methods based ont he command button
  132. ' that was clicked by the user.
  133. Select Case Index
  134.     Case 0              ' Create key
  135.         RegistryAgent.CreateKey
  136.         
  137.     Case 1              ' Delete key
  138.         RegistryAgent.DeleteKey
  139.         txtSubKey.TEXT = ""
  140.         
  141.     Case 2              ' Get value
  142.         RegistryAgent.GetValue
  143.         txtValue.TEXT = RegistryAgent.KeyValue
  144.         
  145.     Case 3              ' Set value
  146.         RegistryAgent.KeyValue = txtValue.TEXT
  147.         RegistryAgent.SetValue
  148.         
  149.     Case 4              ' Delete value
  150.         RegistryAgent.DeleteValue
  151.         txtValue.TEXT = ""
  152.         txtSubKey.TEXT = ""
  153.         
  154.     Case 5              ' Exit from program
  155.         Unload frmMain
  156.         End
  157.         
  158. End Select
  159. End Sub
  160. Private Sub Form_Load()
  161. Dim tTempKey            As String
  162. Set RegistryAgent = New clsRegistryAgent
  163. ' Use the class properties and methods to load
  164. ' some test data into the registry
  165. tTempKey = "\Software\WaiteGroupPress\VB-API-HowTo"
  166. RegistryAgent.RegistryKey = tTempKey
  167. RegistryAgent.SubKey = "Authors"
  168. RegistryAgent.KeyValue = "Noel and Eric"
  169. RegistryAgent.SetValue
  170. RegistryAgent.SubKey = "Visual Basic"
  171. RegistryAgent.KeyValue = "Version 4.0"
  172. RegistryAgent.SetValue
  173. RegistryAgent.SubKey = "Operating Systems"
  174. RegistryAgent.KeyValue = "32-Bit and 32s"
  175. RegistryAgent.SetValue
  176. End Sub
  177. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  178. ' Remove the test data from the registry
  179. RegistryAgent.RegistryKey = "\Software\WaiteGroupPress"
  180. RegistryAgent.SubKey = "VB-API-HowTo"
  181. RegistryAgent.DeleteKey
  182. RegistryAgent.RegistryKey = "\Software"
  183. RegistryAgent.SubKey = "WaiteGroupPress"
  184. RegistryAgent.DeleteKey
  185. End Sub
  186.